library(igraph)
g<- graph(c(1,2,1,3,1,4,2,4,3,4), directed=T) 
plot(g, layout=layout.fruchterman.reingold) 
plot(g, layout=layout.reingold.tilford)
